Option Public
Option Explicit
'/**
' * 类说明
' * <br /> 
' * <b>Example 1: Send new e-mail</b><br/>
' * 
' * @depends <设计元素>
' * @error 
' */
Public Class cSamplpe
	
	'定义
	Private m_doc As NotesDocument
	
	'/**
	' * 构造函数
	' */
	Public Sub New(doc As NotesDocument)
try:
		'set up error handler
		On Error Goto catch
		
		Set m_doc = doc
		
		Goto finally
catch:
		'log error
		Msgbox Erl & ":" & Error
		'resume to the final thing
		Resume finally
		
finally:
		'do the final thing
		
	End Sub
	
	'/**
	' * 获得文档
	' */
	Public Property Set Document As NotesDocument
		Set m_doc = Document
	End Property
	
	'/**
	' * 设置文档
	' */
	Public Property Get Document As NotesDocument
		Set Document = m_doc
	End Property
	
	'/**
	' * 方法简介
	' * 
	' * @param 参数名 参数说明
	' * @return 返回类型 返回说明
	' * @depends
	' * @see
	' * @error
	' * @version 1.0
	' * @author
	' */
	Public Function fTest() As Boolean
try:
		'set up error handler
		On Error Goto catch
		
		Goto finally
catch:
		'log error
		Msgbox Erl & ":" & Error
		'resume to the final thing
		Resume finally
		
finally:
		'do the final thing
		
	End Function
	
	
	'/**
	' * 过程简介
	' * 
	' * @param 参数名 参数说明
	' * @depends
	' * @see
	' * @error
	' * @version 1.0
	' * @author
	' */
	Public Sub sTest()
try:
		'set up error handler
		On Error Goto catch
		
		Goto finally
catch:
		'log error
		Msgbox Erl & ":" & Error
		'resume to the final thing
		Resume finally
		
finally:
		'do the final thing
		
	End Sub
	
End Class